﻿Public Class BEsangre
#Region "Declaración de variables"

    Inherits BEmuestras
    Private codSangre As Integer
    Private cantidad As Integer

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodSangre As Object, _
            ByVal pCantidad As Object)

        Me._codSangre = pCodSangre
        Me._cantidad = pCantidad

    End Sub

    Public Property _codSangre() As Integer
        Get
            Return Me.codSangre
        End Get
        Set(ByVal value As Integer)
            Me.codSangre = value
        End Set
    End Property

    Public Property _cantidad() As Integer
        Get
            Return Me.cantidad
        End Get
        Set(ByVal value As Integer)
            Me.cantidad = value
        End Set
    End Property

End Class
